Tekniques 



The 4050 Series Applications Library Newsletter 



March 15, 1980 



Vol. 4. No. 2 




Whether it's trolling, start-stop fishing, or auxilliary power for a sailboat, each requires a different motor- 
propeller combination. And Shakespeare of Arkansas, Inc. employs the 4051 to optimize the motor-propeller 
design and fit. 
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Improving the paddle for those who would 
move a boat is the objective of Shakespeare 
of Arkansas, Inc. In this case the paddle is an 
electric outboard motor and propeller, and 
matching the propeller to the motor is the 
key to optimum performance. 



From the Water Up 

Propeller design is a balance among several 
variables of form including blade number, 
diameter, pitch, area distribution, foil, skew, 
and others, with consideration for material 
strength. A propeller which provides max- 
imum thrust for the available shaft power is a 
design objective. The propellers in Figure 1 
illustrate differences in design for varying 
shaft power. 

Motor design is a similar balance among 
several variables in the conversion of the 
D.C. power to mechanical shaft power, 
within available energy levels provided by 
the famiHar lead-acid battery. 

Propellers tend to be more efficient in 
converting shaft power to thrust at low shaft 
speeds, whereas motors tend to be more 
efficient in converting D.C. power to shaft 
power at high shaft speeds. This is the 
principle trade-off in combining motors and 
propellers. 

Shakespeare's electric outboard motors use 
fractional horsepower permanent magnet 
motors with housings designed especially for 
submerged operation. 

A range of motor sizes is included in our 
product line to permit the boat owner to suit 
his needs exactly. A motor may be used for 
primary propulsion for canoes and Hght 
boats, it may be used as a "trolling" motor or 
start-stop as a fishing motor, and as auxihary 
power for sailboats, party barges and small 
craft of all types. 

A different performance level for each 
application has in the past been provided by 
modifying the motor design to drive a 
propeller at selected points over a wide range 
of its thrust/ speed curve. As the need 
developed in the market for more efficient 
motor-propeller combinations at higher 
levels of performance, it became necessary to 
deal with motor and propeller designs in- 
dependently and with greater flexibihty. 

Designing the System 

The 4051 Graphic System is the hub of 
Shakespeare's product development system. 
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New Three BJade 
Pow'r propTM propaJlers 
for IS and 23 pound thrust 
Shakespeare Electric Motors 




Fig. 1. 

In order to benchmark the state of the 
technology in electric outboard motors, the 
4051 has been configured for data acquisi- 
tion using the RS-232 Option 1 Interface 
with an Esterline-Angus PD-2064. Sensor 
signals representing the variables of the 
outboard motor during operation in a test 
tank are logged through the PD-2064 into 
the 4051 as data files, called performance 
"profiles". Several variables such as voltages, 
current, thrust, RPM, temperatures, and so 
on, may be observed graphically in com- 
parison with any other variable, including 
time during the duration of a test. These 
profiles may include up to fifteen recorded 
variables as a time log of any duration. 

Permanent files on mag tape permit future 
analysis in comparison with performance 
profiles of other outboard motors. Multi- 
color graphs and transparencies are directly 
available from the 4662 Digital Plotter. 

A similar arrangement for the 4051 in the 
data acquisition mode is used to evaluate 
permanent magnet motors on a dyna- 
miometer. Exercising a motor on the dyno 
allows Shakespeare engineers to determine 
optimum load points for motors of various 
designs. 



A third application in data acquisition is 
used to determine the load characteristics of 
propellers back in the test tank using a motor 
whose performance has been calibrated on 
the dyno. Overlays of plots of prop load lines 
with motor load lines permit a quick balance 
to be struck in selecting appropriate motor- 
propeller combinations for production. 

But, the real forte of the 4051 in 
Shakespeare's product development is its 
usefulness in the design and machining of 
propellers. Coupled with Facit paper tape 
equipment on the GPIB we are able to cut 
complex blade geometry directly in metal 
from the mathematical equations of blade 
form under numerical control. The 
equations of blade form completely define 
the surfaces of the blade. The program, 
called NCPROP, required interactive inter- 
pretation of equations with graphics for 
rapid development of functions for chord 
length, blade thickness, skew, etc. 



An equation used to define the blade element 
hydrofoil function was obtained using the 
4662 to digitize the shape of a scaled air foil 
taken from an NACA Technical Bulletin 
(Figure 2). The shape was then quickly and 
accurately approximated by adjusting the 
coefficients of a polynomial modifier on the 
n-leaf rose equation using graphic iteration 
on the screen. 



Cutting tool motions are computed and 
stored on mag tape as an isometric presenta- 
tion of the prop and associated tool positions 
appear on the screen. The instructions are 
computed in the format of a production 3- 
axis N/C milling machine with the cutting 
pattern and feed rates distributed for max- 
imum accuracy and metal removal rate. 'Tf 
the picture looks good" the magtape instruc- 
tions are transferred over the GPIB to paper 
tape which is then read and verified. 



Approximately 10,000 cutting tool motions 
on each face of each blade provide a 6-inch 
diameter prop ready for polishing and test. 
Families of propellers with singular varia- 




Fig. 2. 



tion have been evaluated for effects of blade 
geometry on performance. A given geometry 
may of course be duplicated as often as 
necessary for field test. A propeller selected 
for production is traced in steel to provide 
injection molding dies for production quan- 
tities. 

The Result 

Shakespeare engineers have set out to build 
the best electric outboard motors possible 
with today's technology. Thanks to the 
application of the Tektronix 4051 Graphic 
System in their development program, each 
outboard motor in Shakespeare's line is 
being offered as a balanced propulsion 
system with optimum performance. The two 
new high performance models 615 and 623 
with matching three blade propellers in- 
troduced this year are the direct result of this 
appUcation. ^) 



Editor's Note: 

The enthusiasm of Dave Watts, Tektronix Sales 
Engineer in Oklahoma City, for Shakespeare's 
unique application prompted TEKniques to con- 
tact Les Weaver, Engineering Manager at 
Shakespeare. Les graciously agreed to tell us how 
they're using the 4051. (All photographs courtesy 
of Shakespeare, Inc.) 



New Three Blade 
Pow'f PropTM propeller 
for 623 and 723 motors. 




New Three Blade 
Pow'r PropTM propeller 
for 615 and 715 motors. 
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New Three Blade 
Pow'r PropTM propeller 
for selected Shakespeare 
Electric Fishing Motors. 
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A sampling of the variety of propeiiers designed by Siial<espeare for tineir motors. 
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UCCESSFUL BUSINESS 
SCHEDULING 
WITH THE 4051 



American Enka is a nationally recognized 
manufacturer of man-made yarns and fibers, 
with a manufacturing lineage that goes back 
almost to the birth of the synthetic fibers 
industry. The company was started in 1929 
by Algemene Kunstzigde Unie N.V. (AKU) 
of Holland, one of the world's first and 
largest man-made fiber and yarn producers. 
Enka's first product was rayon; fiber and 
yarn products now include nylon, polyester, 
rayon, and polypropylene fibrillated film. 

Enka has grown from its beginnings in Enka, 
North Carolina, to occupy three manufac- 
turing sites in the Southern Appalachian 
Region. Others include the Lowland site in 
the TVA lakes region, near Knoxville in east 
Tennessee, and the Clems on site in the 
foothills of northwest South Carolina. Like 
many companies that locate away from the 
big-city beaten path, these pastoral settings 
behe the nature of the business conducted at 
these sites. And like all companies entering 
the 80's, Amerinca Enka's business environ- 
ment requires better data, faster decisions, 
and more efficiency throughout the develop- 
ment of company projects. To reach those 
ends, American Enka is relying on the 405 1 
Graphic System and a scheduling software 
package supplied by the Sheppard Software 
Company. 

The 4051 -based scheduling system has con- 
siderably improved the planning and 
scheduling of projects at American Enka. 
The system, with its purchased software 
package, has been used on plant construc- 
tion projects, new heavy equipment in- 
stallations, and the like, since April, 1979. It 
has promoted timely completion of company 
projects, as well as a fast method of project 
planning and control. But to best understand 
the nature of these improvements, some 
background is helpful. 

The Nature of the Problem 

Today's business environment demands 
more efficient engineering and construction, 
along with more accurate cost and time 
control throughout all project activities, if a 



company is to survive and grow. It was 
determined that the planning and scheduling 
of resources was a prime area to increase 
project efficiency, provided that the control 
could be accomplished in a timely and 
economical manner. 

Investigation into the most well-known 
methods of scheduling, such as PERT, 
GANTT, and CPM, revealed deficiencies in 
all of them. For example, the GANTT Chart 
or Bar Chart indicates work activities, shown 
on a time frame annotated with starts, stops, 
and activity durations. But they don't clearly 
show the critical path, or the dependency of 
one activity on the completion of another. 
CPM and PERT systems do indicate this 
dependency and critical path, but don't 
display the activity on a time-frame that can 
be readily understood without additional 
calculations. 

The best chart for projects usually under- 
taken by the average-sized company would 
combine all of the desirable features of the 
three classic system types. This would 
provide a chart that shows the critical path, 
dependency, start times, duration, comple- 
tion times, and float times of each activity. 
And the information should be presented on 
a linear time-frame, so that the overall 
project situation can be seen without getting 
into the details of each activity. 

Looking For a Solution 

American Enka Company, through its 
Systems Engineering Organization, in- 
vestigated the packages offered by many 
software suppliers. The goal was to find a 
suitable package that would be compatible 
with any of American Enka's existing com- 
puter hardware systems, and could be ob- 
tained at a reasonable cost. The package that 
was settled on is called "Event Scheduling 
System", written by Leland C. Sheppard of 
the Sheppard Software Company, located in 
Sunnyvale, CA. 

This software package runs on a 
TEKTRONIX 4050 Series Graphic Com- 
puting System, such as the 4051 Graphic 



Systems already in use at American Enka*. 
Among the options supported by the 
package is chart output on a plotter. The 
menu contains 11 functions, as shown in 
Table 1. A well- written users manual guides 
the operator through all functions. The 
graphic display and computing power of the 
4050 Series System combines with the 
scheduHng software to provide a total system 
that is efficient and easy to use. 





Table 1 


Function # 


Description 


1 


Start 


2 


UtiUties 


3 


Data Entry 


4 


Edit 


5 


Schedule 


6 


Optimize 


7 


Renumber 


8 


Chart 


9 


Report 


10 


GANTT Chart 


11 


Minichart 



In addition to plotting the schedules in chart 
form, with all of the previously-noted desir- 
able features, the system has some other 
useful abilities. It will print full event and 
activity reports, showing early start, early 
finish, late start, late finish, duration, critical 
path, and maximum duration times. These 
are computed by the 4050 Series System, and 
can be Hsted in any desired order. Activity 
lists can be output by craft, discipUne, or any 
other Hsting specified by a two-letter code. 

The system's normal display is a network 
diagram (or diagrams), but GANTT Charts 
and Minicharts can also be prepared. The 
Minichart is a network diagram drawn at 
one-eighth of full scale, without activity 
descriptions. In this way, the Minichart gives 
a quick overview of the project working 
schedule. 

The Editor and ScheduHng functions are the 
most-used parts of the program. When 
changes occur in equipment delivery times or 
activity durations, it is a simple matter to 
enter the changes, reschedule, and print an 
updated chart. With the Editor and the 
Scheduling system, changes can be ac- 



*One 4051, used in research chemistry at 
American Enka, resulted in CHROMPLOT, a 
Chromatic Data Acquisition and Plotting 
program that was contributed to the library by 
Leonard H. Ponder. This program, #51/00- 
5204/0, is listed in the scientific section of your 
library catalog. 



compHshed in minutes, as compared with 
hours of manual effort. 

Running the System 

The system is straightforward. The scheduler 
starts by Hsting aU activities from left to right 
across a page in chronological order, as 
shown in Figure 1. Activity durations are 
entered above each activity. Figure 2 is an 
example of a one-page activity worksheet, 
with craft codes added. 



Next, event numbers are added sequentiaHy, 
top to bottom, through the entire project Hst. 
Activity numbers are then added sequential- 
ly, left to right across the page, through the 
same project Hst. Then each activity, with its 
numbering information, is copied item by 
item to provide an input sheet. This is 
foHowed by estabHshing the project number, 
the project start date or time (along with the 
time interval to be used — months, weeks, 
days, or hours), and a brief description of the 
project. 



PROJECT 

1. E#_/. 

2. E#_2_ 

3. mj_ 

4. E#_ 

5. E#^ 

6. Ef± 

7. E#_ 

8. E#_£ 

9. E#_^ 

10. E# 

11. E#_ 

12. E#_ 

13. E#_ 

14. m_ 

1 5 . E#_ 
1 6 . E#_ 
1 7. E#_£ 
1 8. E#_ 


DESCRIPTIO 
PROJECT; 
STARTING T 
LAYOUT WORK SHEET TIME PERIO 

A# / Desc. Re ^ic^n ln>u<LAT,o^ E# 6 A# 2. 

A# U Desc.^/iuL OLo >mulat,oM E# 7 A# 7 


&01 

IME: ll/c,/7? 

D: 1 DAY 

Desc. CLi^aiu i 


MKeooe ft 


ACTIVITIES: H- 7 
EVENTS: V/ 

5 
E# n kit 3 Desc .ef7H,^o 5r^P B^pe 

Sit II kit B Desc. SHKsoi>ei^ Sipes 

m kit Desc. 

E# kit Desc. 

E# 1 ^ kit zo -Desc. /?£^<L/}c^ t^K^TE Uiu 


iM!£kit± 
Mi± kitf_ 
EitJJ AitJ£ 
mjIAitj£ 

sE#_^ A#_ 
E#_ A#_ 
E#_ A#_ 
E#_ A#_ 

3 Eitjf kit£_ 

s EitSo kit_ 
EitJJkitJl 
E#_ A#__ 
E#_ A#_ 
E#_ A#_ 
E#_ A#_ 
E#_ A#_ 
Eit£okitri 
E#_ A#_ 


Desc./^suj lA/i-^K/M-iorJ 


Desc. ^'^-^ 

Desc. 

Desc. 


— 


V- 




A# // Desc. OiAMinY 


Eit'Tkit 


Desc. OIL- sefiiLs 


kit Desc. 

kit /8Desc./?e/'4flce /='««5 \)ai 


_ E#_ A#_ 

^Ei'Eits kit n 


2- 

Desc.f^'^ PACK. 14^6'. 

Desc. 


Desc.fe^iA-H 
Desc. SiPe 


Hh^ 


3- 

,L .3" 


kit Desc. 


_ E#_f A#if 
E# f kit I 3 


W'^kit Desc. 

E#'z- kit Desc. 

E# A# Desc. 

E# /3 kit ^l- -Desc K^rHoJe &mK 

Eit 13 kit I? Desc. opj-x.H-sj> 


3- 


Desc. 


Desc. ^■sfn 

Desc. 

Desc. 


— 




Desc. 
Desc. 


A#i'i'Desc. SHf-eoPEK TKut. 
A#2i'Desc. Dun-j^Y 


<, E#j^ kit_ 
E#« A# 


Desc. Ra fcmce P'^kt^ 
Desc. 


kit Desc. 

kit Desc. 

A# Desc. 

A# Desc. 

A# Desc. 

kit Desc. 

kit Desc. 

A#Vtf-Desc. P^JTj^r 

kit Desc. 


_ E#_ A#_ 
_ E#_ A#_ 
_ E#_ A#_ 
_ E#_ A#__ 
_ E#_ A#_ 
_ E#_ kit_ 
_ E#_ A#_ 

_ m_^ A#_ 

_ E#_ A#_ 


Desc. 
Desc. 
Desc. 
Desc. 
Desc. 

Desc. 

Desc. 


— 




E# A# Desc. 
E# kit Desc. 
E# kit Desc. 
E# kit Desc. 
E# kit Desc. 






z- 
Desc Ksmaoe Ch^,.u Ccu'eni. 


Desc. 


Desc. 


Desc. 


Desc. 


E# A# Desc. 
E#/y A#VfcDesc. /.'/.i.^,. 
E# A# Desc. 




.<= 3 


Desc. 


Desc. 






Desc. riBi^iicarei.e Limc-;, 


Desc. 


— 




Desc. 





F/gf. 7. Project layout worksheet including activity descriptions and durations. 





P/^OJff^T ^.C/ lS<^.,,p,^£^r O^CfrtH^UL. 






6T^K.r,M0. -n^or — /'/^'■y/? is^>SAjn - 


^^ 




■r/^e /'c?,6,c3P ■-,- iZJ^y ^.r^ne-- 


^7 


ktivity List Work Sheet 


5<:«ef./^^ ^s r.*^ ////V/77 


ftii__(. PE«__/_ SEiLf- TiMe__^__ 


Desc I ^^ R^moL^S '/^.i^i.A7-/cr.y 




Att_2-_ PE»_iL SEft__/i Tine__2__ 


DeSCi/^ SuFI^ %' (^^S^a/ OU/t£Di>BiZ. 




fti*-:?- PEtt_i/ SE»_/_C Tine„_^__ 


QeSC. 11^ /Tx.T'fi',''^/? 5-7i»/^ gUAoes 




A»_£. PEft.i'C SE#_V_ Tine_Jf__ 


Qesc,/u5 i/^sr/^Lu /\f£uj i/OSuunr/oAJ 




Att.i: PE#_z-_/ .SEttAL TiMe_;^___ 


DeSC./^'^ 5 Me.£-PP£lZ do/f^fLS-r/oA/ 




A#_iL PEi__/_ SE#_Z. TiMe_2-_i 


DeSC.'^^ /V/^w^. 0.^/5 //yZuLAT'OhJ 




AS_7_ PE#_Z_ SEtt_/i TiMe_±__ 


Desc . FjlTj^ni 




AS_L PE#_Z'_ SEtt.Zf: Tine__±_ 


ripc-r /t.<^ {.i,i£i.D S HRSi'C?^^ S /j>£s 




AS_^ PEft_^^ SE#_2:5; Tirie__£_ 


Desc. Pu^^y 




AS_/^ PES.i?: SEft_-^(. Tir'ie__^__ 


Desc , i!^_Jj^tZ1'z'z-i'^--t'l^'f^ Co^e>^ 




AS.//. PE#__/ SE^JJ_ TiPie__s:__ 


Desc . ^'Jfldl 




AtiJ.?: PES.Zr SE#£.3 TiMe_2___ 


Desc /^^__^f/J-_l'tf ^^'i'l^l^.f 1^ ^^'^^^ 




mj3_ PES_H SE#_2:^ Tipie__^__ 


Desc .''i"^ //t^^"/^/ <:S,eAe.3 "j ^n-ti, o/l. 




Mj± PE#_2 6; SE#_3_/. Tipie__2r__ 


De-='.Ci'^'^ //ws/' P/zii/c: C///?//iy f 5e/9jLs 




AftJil PES_(.7 -SEftAt TiMe__2:__ 


Desc./ill.ill'l'fi^.j'z'jlf-l 




A8_/>_ PE#_i^ SEft.z.7 Tifie_i^_. 


Desc.'^'^ Z'^^'^- ■P'='°^s ^ 7"//?- Fist-oaj 




AS.^I. PE#>a SE#ii_ TiMe__2_. 


Desc.^*^ /'^s/' .A'yo. ^//i/^s 





F/gf. 2. /\/^ activity worksheet from the project layout listing information to be typed into the computer. 
Note the craft codes added to the left of each description: 

IS = Insulations IW = Iron Workers 

MR = Millwrights CL = Common Laborer 



These last items, and the data from the input 
sheet, are typed into the 4051 using the Data 
Entry function of the program. That is the 
last step of the program's input re- 
quirements. Then, from the keyboard, the 
4051 is asked to schedule the project, report 
the input list, provide a chart, give full or 
partial output, or any combination of the 
above functions. Figure 3 is a typical plotted 
schedule output resulting from scheduHng 
system operation. 

Updating a schedule is even simpler, using a 
hard copy list of the input information such 
as shown in Figure 4. The operator just calls 
on the Editing function to make changes, 



they have scheduled projects ranging from 
10 to 166 activities. 

These projects are the management respon- 
sibility of 11 project engineers and project 
managers. They must ensure that project 
scopes are properly defined and estimated, 
that money is appropriated to do the project, 
and that construction is completed on a 
predicted schedule. These responsibilities 
require close communication with upper 
management, so that decisions to cancel, 
change, or continue are administered in a 
timely manner. 

In the past, it has been difficult to com- 
municate the schedule and the details of a 



can be seen in a matter of minutes rather than 
days. A planning meeting can adjourn for 
lunch, and convene again with an entirely 
new schedule in report and chart form to 
illustrate a new approach to the problem at 
hand. 

Looking at Results 

The "Event Scheduling System", based in the 
4050 Series Graphic Computing System, has 
produced results that surpassed our original 
expectations. Communications have im- 
proved because of the scheduling technique; 
the pubUshing of the charts serves as a 
universal reference. Company management, 
engineering management, and construction 
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Fig. 3. Scheduled by the 4051 and output on the 4662 Plotter. 
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Fig. 4. Printout of the input list used when updating 
schedules. 

usually with just a few keystrokes. After the 
project edit is completed, rescheduling, char- 
ting and reporting will provide new, up-to- 
date network diagrams and reports. 

Putting the Schedules to Work 

The Central Engineering Department of 
American Enka began using this scheduling 
technique in April, 1979. Since that time. 



Fig. 5. One page of a Gantt Chart printout. 

large project. But the graphic display of each 
project scheduled through the 4051 system 
provides a communication tool that has not 
been available before. Impractical projects 
can be screened early in their planning 
stages, thus saving much engineering effort. 
Management can look at alternative 
possibilities by asking "what if questions of 
project managers. The impact of program 
changes, or reversals of thought on a project. 



personnel all focus on the same documents, 
and use them for work control as well. 

The time and cost required to run through 
one project scheduHng activity will vary, 
depending on the size and complexity of the 
project. But as a rule of thumb, American 
Enka Company experience is showing that 
two hours of time on the scheduling system 
accomplishes the work of ten hours of 
manual scheduling time. And the results are 
cleaner and much more useable. 

With everyone using these same documents 
as an information source, many dis- 
agreements about priorities and the timing of 
resources simply disappear. Manpower 
planners can support requests for additional 
personnel by backing them up with a sum- 
mation of data. Plant management and 
engineering personnel have a document that 
identifies the timing of all work within their 
area, allowing them to manage with a 
broader perspective. This highly productive 
tool for communication and work trend 
monitoring is the product of combining 
computing power and graphics, in the 4050 
Series Graphic Computing System, with the 
software package called "Event Scheduling 
System". This combination is helping to 
make each day at American Enka Company 
a more productive one. ^) 



PLOT 50 Easy Graphing 
Flexible Data Display 



by Patricia Kelley 
TEKniques Staff 

with Howard Mozeico 
Tektronix, Inc. 
Wilsonville, OR 

Line graphs, bar charts, bar and Hne graphs, 
scatter plots, pie charts: however you want to 
present your data. Plot 50 Easy Graphing 
Vol. 1 will do it. This newest 4050 Series 
software package is not only packed with 
graphing routines but it's easy to use. In fact, 
someone unfamiliar with computers can 
enter and graph their data after Hmited 
instruction in 4050 System keyboard use. 



Easy Graphing allows you to display one to 
six variables, with a choice of six line types, 
six symbol types and six bar shadings. You 
can specify bar width, normal, logarithmic 
or arbitrary axes scaHng, tic mark spacing 
and labeling, legends and their positioning, 
and axes and graph titles. X-axis or Y-axis 
grids are also available. Easy Graphing will 
automatically calculate pie chart segment 
percentages and label them; a segment may 
be exploded. Extended functions allow you 
to manipulate your data, update and 
generate repetitive graphs and input/ output 
PLOT 50 Standard Files. 



PLOT 50 Easy Graphing is the second PLOT 
50 Standard File compatible software 
package (PLOT 50 Standard Files were 
discussed in TEKniques Vol. 4 No. 1). This 
means that data used in BPA-2*, the first 
PLOT 50 Standard File compatible package, 
can readily be communicated to Easy 
Graphing on tape or disc and vice versa using 
the special UTILITIES programs accom- 
panying each package. 

PLOT 50 Easy Graphing is a 4050 BASIC 
language implementation of the 
TEKTRONIX PLOT 10 Easy Graphing, a 



FORTRAN package. Therefore, users of the 
minicomputer and mainframe PLOT 10 
Easy Graphing software will be able to run 
PLOT 50 Easy Graphing after a quick look 
at syntax requirements. The commands are 
almost identical. 



Although PLOT 50 Easy Graphing runs on 
all 4050 Series Systems (minimum 32K 
memory), it is optimized for the 4052/4054 
Graphic Systems. Their larger memories and 
bit-slice processors can efficiently process 
the many routines of Easy Graphing. And, 
Easy Graphing is based on the 4907 File 
Manager. The program resides on the disc 
and your data is stored on the disc. Plots may 
be directed to the 4662 or 4663 Digital 
Plotters; listings may be sent to the 4641 or 
4642 Printers. 



A Look at Easy Graphing's 
Components 

What makes this package so versatile but 
easy to use? The answer Ues in Easy 
Graphing's command processor and in the 
unique resources invoked by the User- 
Definable Keys. 





Y GRAPHING 








TAPE 1 & DISC 1 


n 

-i 

1 


SHIFT KEYS ^^^^^H 


EASY 1 
GRAPH 




TUTORIAL 




I HELP ^ 


n 




CHANGE 


DELETE 


Jjr ' "" "^i 




■Biiinn 


SHIFT KEYS 




v\ 


SAVE/ 1 
RUN 


UTILITIES 


PLOTTER 


B 


AR ^'^^^ 1 1 
'^^ 1 SYMBOL ^J 


■ 


1 RANGES 1 


ADDA 


GRAPH 


1 PIE 1 TITLES ^^1 



*BPA-2 was described in TEKniques Vol. 3 No. 5. 



Easy Graphing Command Processor 

The flexibility and versatility of Easy 
Graphing is due to its command processor. It 
allows you to use simple commands which 



describe complex tasks, commands such as 
ENTER, CHANGE, GRAPH and so on. 
You simply type in a command and its 
parameters and Easy Graphing ac- 
complishes the task for you, i.e., "processes 
your command". We'll discuss Easy 
Graphing's command language in more 
detail later. 



EASY GRAPH Resource 

However, you don't need to know any Easy 
Graphing commands or even much about 
the 4050 System in order to enter data and 
display a graph. Just press Uiser-Definable 
Key 11 and EASY GRAPH takes you 
through a question and answer session, 
producing a quality graph according to your 
specifications. 



Thtr« ar« 4 tupas of graph* you can crtatt In EA8Y GRAPHING: 



Z-jScb]^ 




1- Lin«<«> 2- Bar<«) 3- Bor<i) and Lin«<«> 4- Pi« 

Hhich type of araph do you with to create 
(1,2,3, or 4>: 3 



Although the full feature set of Easy 
Graphing isn't available within the EASY 
GRAPH resource, your choices are ample to 
produce quality graphs of varying design: 

4 graph types 

6 curves 

6 bar types 

6 line types 

6 symbol types 

6 legends 

numeric or monthly X-axis tic labels 

X-axis and Y-axis titling 

main title and subtitle 



And after each question and answer, Easy 
Graphing prints the Easy Graphing com- 
mand which accomplishes that task. 



Hhat would uou like to labtl curve l: SOFTUOOD 

Ent«r th« varticol value for SOFTHOOD 

which corruponds to thi horizontal value of: 

JAN 468 

FEB 518 

MAR 534 

APR 578 

MAY 561 

JUH 568 

JUL 548 

AUG 681 

SEP 523 

OCT 548 

NOU 465 

DEC 424 

The EASY GRAPHING connand corresponding to your previous 

response is: 

ENTER Yl 468 518 534 578 561 568 548 681 523 548 465 424 

Press RETURN to continue... 



Hhich line type do you wan 


t for 


HARDMOOD 










1 , , 




2 








3 




<l)2,3f4i5|6>:l 
















4 




s_. 






- 


6_ 





The EASY GRAPHING connand 
response i«: LINE 2 1 


corresponding 


to 


your 


previous 




Press RETURN to continue.. 
















Hhich synbol do you want o 


n the 


line 


I 


A 


2 


D 


30 


(1,2,3,4,S,6>: 9 RETURN 


- No 


synbol 


4 


A 


5 


O 


fiV 


The EASY GRAPHING connand 
response is: SYMBOL 2 5 


correspond in» 


to 


your 


previous 




Press RETURN to continue.. 

















This famiUarizes you with the Easy Graphing 
command language and how it's used. 



Once you've entered your data and defined 
your graph, you can also save it and run it 
later. 



LUnBER PRODUCTION 






mynrnpiirpfpfTirnfTipilipmpTrnpir 



H- 



JAN FEB MAR APR HAY 
SOFTHOOD 
HARDUOOD 



JUH JUL AUG SEP OCT HOU DEC 



TUTORIAL Resource 

Press User-Definable Key 13 and the 
TUTORIAL tells you what you need to 
know in order to use the command 
processor. Its four-phase structure is aimed 
at many levels of users and may be entered at 
any of the phases. If you're not familiar with 
graphs, the review of graphing concepts 
phase acquaints you with the terminology of 
graphs. Conventions in Easy Graphing dis- 
cusses the syntax of Easy Graphing com- 
mands and their parameters, how to enter a 
command, and how to correct mistakes. 



GRAPH Year UK Gnny Fra Japn USA 

or 
GRAPH, Year , UK, Gnny, Fra, Japn, USA 



The third phase. Easy Graphing commands 
you need to know, acquaints you with two 
commands which allow you to enter data 
and graph it: ENTER and GRAPH. This 
phase of the tutorial also introduces a few 
other Easy Graphing commands. 



Other available help lists resources outside of 
the tutorial and describes how they are 
accessed. One of these resources is EASY 
GRAPH which has already been discussed. 
Discussions of the other resources follow. 



HELP Resource 

The HELP resource reduces the need to refer 
to the manual or reference card. A menu of 
Easy Graphing commands as well as several 
general subjects can be obtained by pressing 
the HELP User-Definable Key 15 or by 
typing in the Easy Graphing command: 
HELP. 



HELP is available 


on the following topics: 


HELP 


CHARTS 




TYPES 


EASY GRAPH KEY 


PIE 


f-iST 


EXPLODE 


USER KEYS 


PUALUE 


DATA 


BAR 


IHPUT 


SCATTER 


ENTER 


CURUE 


ATTACH 


ADD 


DEFINE or FUNCTION 


GRAPH 


EDITIHG 


LINE 


CHAHGE 


SYMBOL 




GRID 


COMHAND FILES 


XGRID 




YGRID 


SAUE 


LABELS 


KEYBOARD 


TITLE 


^SHI^ r 


DATE or SUBTITLE 


CONTINUE 


AXIS 


BELL 


TICS 


PRINT 


XTICS 


OUTPUT DEUICES 


YTICS 


HCO or HARDCOPY 


XTITLE 


PLOTTER or PERIPHERAL 


YTITLE 


FILE IHTERFACIHG 


XLABEL 


UTILITIES 


YLABEL 


STARTIHC or QUITTING 


LEGEND 




RANGE or SCALE 




XRANGE 




YRANGE 


Enter a topic <e.9. TITLE): PIE 


LOG 




XLOG 




YLOG 



From the menu you can choose the com- 
mand in which you're interested, e.g., PIE; 
its purpose, syntax and an example will be 
displayed. 



connand abbrcviatioi 



One c 



Syntax: PIE Nant "Lttb«U" "Lab«12" ... 

Displays o pie chart of nancd variably includins assigned sesncnt 
labels, and percentage labels. The first label entered is assigned \ 
the first segnent of the pie* the second label to the second segncn< 
and so on. Each label nust be enclosed in a pair of single or a pair 
of double quotes. 



Syntax: PIE 

Re-displays last pie chart) including any new specifications 

since it was last displayed. 

Other connands used to alter a pie chart are EXPLODE ond PUALUE. 
EXPLODE causes separation of one section fron the rest of the pit 
PUALUE deletes or restores percentage labels fron a pie. 

ENTER X 2 6 3 1 
PIE X 

produces a chart sinilar to the one 
at the right. The ENTER connand 
detoils the values of the pic 
segncnts. The pie is draun with the 
first value starting at 6 o'clock 
and proceeds counterclockwise. 




You nay now enter c 



t Easy Graphing connand, or press any User Key. 



If you choose a general subject, it will be 
defined and the pertinent Easy Graphing 
command included: 



LABELS 

EASY GRAPHING pern its the followini types of labels 



- K and Y axis titles, centered under the X-axis or 
alonsside the Y-axis 

• X and Y-oxis tic narks 

• lescnds, one for eoch curve, positioned where you want it. 



For nore inf or nation, 
AXIS or LEGEND. 



type HELP followed by TITLE, 



If you know what subject or command with 
which you want help, you can type in HELP 
followed by the term, e.g., HELP PIE. This 
would result in the same display as Figure 5 
but faster since you bypass the HELP menu. 



User-Definable Key Syntax Resource 

User-Definable Keys 1 through 10 and 16 
through 20 provide you with the syntax of 
often used commands. For example, press- 
ing User-Definable Key 9, PIE, produces the 
following syntax help: 



PICE3 None C'Label"...] 

Displays o pie chort with optional labels. Paired single 
Picla" *^ "* '*"" *^* """'"* «»"«»*"'«•»•» 'Label" 

Redisplays the current pie chart. 



(Compare this with the full HELP PIE 
message shown under HELP Resource 
above.) 

After reading the syntax instructions, you 
can type in the command. 

LIST Resource 

The Easy Graphing command LIST prints a 
summary of all variables in memory and 
parameters of the last graph displayed. You 
may also request a LIST of all elements 
within your variables. 



NAME TYPE 


HIH 




MAX 


COUNT 


CLAK Long 
LINC Long 
YEAR Short 


if. 5 

1958 




38 


5 
5 
5 


LEGEND 38,88 
YRAHGE -10,58 










CURUE XVAR YUAR 


SYHBOL 


BAR 


LINE 




1 YEAR CLAK 

2 YEAR LINC 


4 
5 




1 

1 







CLAK 


LINC 


1 


38 


-7.5 




25 


1 


3 


12 


-8.5 


4 


18 


3 


5 


21 


-2.3 


TOTAL 


186 


-6.3 



Thus, you have a choice of several entry 
points into Easy Graphing: 

• EASY GRAPH— prompts for data 
and graph parameters and produces 
quaUty graphs 



• TUTORIAL— instructs in graphing 
concepts, Easy Graphing syntax, Easy 
Graphing commands, and help 
available 



HELP — defines purpose and syntax 
of Easy Graphing commands 



• User-Definable Key Syntax Help — 
provides immediate syntax instruc- 
tions on often used Easy Graphing 
commands 



• LIST command— displays your 
variables, graph parameters and 
variables' elements 



• Easy Graphing Command Lan- 
guage — simple commands which in- 
voke complex tasks 



If you are inexperienced in computers or 
command language, use EASY GRAPH to 
quickly produce quality graphs. When you 
are ready to advance, the TUTORIAL will 
show you how to use Easy Graphing com- 
mand language. 



If you're familiar with graphing and com- 
mand language, phase 2 of the TUTORIAL 
(syntax) and the HELP Files will give you 
the ground rules of Easy Graphing command 
language. 



If you've used PLOT 10 Easy Graphing, 
simply check syntax rules and go directly 
into the Easy Graphing commands. 



To Be Continued 

In the next issue of TEKniques, we'll take a 
closer look at Easy Graphing commands and 
what they accompHsh. For a sneak preview, 
however, here are the 41 Easy Graphing 
commands, listed according to function: J^ 



LIST OF EASY GRAPHING 
COMMANDS 

• Data entry and manipulation 

ATTACH 

CHANGE 

DEFINE 

DELETE 

ENTER 

• Output device specification 

PERIPHERAL 
PLOTTER 
HCOPY (hardcopy) 

• Graphing 

ADD 

GRAPH 

LIST (summarizes current graph) 

PIE 

• Graph formatting 

BAR 

EXPLODE 

LINE 

PVALUE 

SYMBOL 

XGRID 

XLABEL 

XLOG 

XRANGE 

XTICS 

YGRID 

YLABEL 

YLOG 

YRANGE 

YTICS 

• Titling 

DATE 

LEGEND 

TITLE 

XTITLE 

YTITLE 

• Command files 

BELL 

CONTINUE 

KEYBOARD 

PAUSE 

PRINT 

RUN 

SAVE 

• Exit 

BYE 
RESTART 



Graphic l^ystems 
Workshops Available 



You're probably already satisfied with the 
job your 4050 Series Graphic Computing 
System is doing for you. But you may not be 
familiar with all of the capabilities of your 
system, or how these capabilities can best be 
used to help you get the most out of desktop 
graphic computing. To help you get that 
maximum benefit from your Graphic Com- 
puting System, Tektronix is now providing 
week-long workshops for thorough 
customer training. 

The workshops teach the appHcation of 
BASIC and graphics concepts. Integrating 
and using TEKTRONIX 4050 Series 
Graphic Computing Systems with their 
associated peripheral devices is emphasized. 
The full range of Graphic Computing 
System equipment is available in the 
workshops. 

Each workshop is a combination of lectures 
and exercises, focusing on development of a 
working knowledge of system capabilities. 
Laboratory sessions complement and rein- 
force the lecture information, by leading you 
through the development of a series of 
practical examples. Upon completion, you'll 
have the skills necessary to apply all of the 
capabilities of the system to your own 
specific requirements. 




below. However, on-site and special lo- 
cations can be scheduled for groups of 10 or 
more. TEKniques will continue to keep you 
informed of locations and dates; a new 
schedule will be pubHshed in the May issue 
of TEKniques. The following places and 
times are scheduled: 

March 31 — April 4 Washington, D.C. 
Chicago, Illinois 

April 7 — April 1 1 Boston, Massachusetts 
Santa Clara, California 

April 28— May 2 Washington, D.C. 
Chicago, IlHnois 



May 5 — May 9 



Boston, Massachusetts 
Santa Clara, California 



Course Outline 

Each workshop fills a five-day week with 
lectures and laboratories. Monday through 
Thursday include two laboratories, each 
following a lecture. Friday afternoon com- 
pletes the week with additional lectures and a 
summary of the weeks events. A brief course 
outline is included in Table 1. 

Locations and Schedules 

The workshops are scheduled through four 
basic locations, as shown in the schedule 



For Information 

If you're interested in attending one of these 
worhshops, or if you think you might be, you 
can get more information and a more- 
detailed course outUne by contacting your 
local Tektronix Sales Engineer. Or you can 
call to Raynor Christianson at (503) 644- 
0161, ext. 8949. He can also provide you with 
information on other workshops, such as the 
newly-established 4020 Series Terminal 
workshop. , 









Table 1 










Graphic Syst 


em Workshop Outline 








Monday 


Tuesday 


Wednesday 


Thursday 


Friday 


Morning 


Introduction 

Review of 
BASIC with 
enhancements 


Graphics 


Disc File 

Management 

System 


Demonstration 
of Graphics 
Tablet 

Software- 
System, 
Plot 50, 
App. Library 


Data Comm. 

Interface 

(cont'd) 


Afternoon 


Continue 

BASIC 

review 


Magnetic 
Tape 
Storage 
Devices 


Hard Copy 
Units 
Plotters, 
and Printers 


ROM Packs 
Data Comm. 
Interface 


4054 Dynamic 
Graphics Option 

Advanced 4907 
File Manager 
Concepts 

Workshop 
Review 
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Editor's 
Note 




Contest Closing Soon 

This is the last month for entries in the 
Applications Library Contest; The contest 
theme, to remind you, is interfacing for data 
acquisition or instrument control. 



Awards 

Prizes will be awarded to three places in each 
category. Winners will have their choice of 
4050 Series ROM Packs, PLOT 50 software, 
or AppHcations Library software, at catalog 
price, up to the award amount in their 
category and place. 

Awards will be made in three categories 
divided by interface: 

Category I — AppHcation using the 
General Purpose Interface Bus 
(GPIB) 



Category II — AppHcation using the 
Option 1 Data Communications 
Interface (RS-232) 



So put the last touches on your program, fill 
out the documentation, and send it on in. If 
you need documentation guideHnes or any of 
the forms, drop us a note; our address is 
shown under UNITED STATES on the last 
page. 

The New Look 

Did you notice our new look? In response to 
our recent questionnaire, and to our own 
wish to "freshen up" our look as we started 
our fourth year of publication, we changed a 
few things, beginning last issue. 

We modified our style of type a little, and 
changed to a three-column format. This will 
give us a little more flexibility in presenting 
articles and ideas, and may also allow us to 
get a little more information into each issue. 
Our layout has been modified, too; hopeful- 
ly, you'll be able to retrieve the information 
you need even more easily than before. And 
some new "faces" appear at the start of our 
regular features (Programming Tips, Basic 
Bits, Input/ Output, even my note — above). 



Application Library 
Catalogs 

We've added a lot of new Programs to the 
Library since our last catalog in June, 1979. 
Now we're working on a new one, to add 
those new program abstracts, and give you 
an up-to-date Hst of the information 
available through the Ubrary. The new 
catalog will be coming with the June issue, so 
hold onto your 1979 catalogs until then. 
(Programs added since the 1979 catalog are 
documented in your most recent issues of 
TEKniques.) ^ 



Category III — AppHcation using any 
other type of interface — commercially 
constructed or "home built". 

Category Category Category 
I II III 



1st Place* 
2nd Place* 



3rd Place* 



$750 
500 

375 



$750 
500 

375 



$750 
500 

375 



♦equivalent value in ROM packs or software 

All entrants will receive three programs in 
exchange for theirs. This exchange is in 
addition to any award received, of course. 



Complete rules can be found in TEKniques 
Vol. 3, No. 7. 



And as we promised last issue, we've added a 
new column for your questions. Input/ Out- 
put is now a regular feature of TEKniques, 
starting with this issue. All of these changes 
are intended to get you the information you 
need, in a format that's pleasant to read. Let 
us know if you have any comments on the 
"new look". 



Back Issues Available 

We still have copies available of previous 
TEKniques issues. While we make it a 
practice to keep these back issues available, 
in some cases they are not original stock. As 
our stock of initial printings runs out, we are 
turning to our local reproduction press to 
replenish our back issue inventory. This 
allows us to keep the content of back issues 
available to all. 
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INPUT / 
CIJTPDT 




^y^J=^:^ 



The first questions come from a reader who 
suggested a "queries'' column a few months 
ago and sent along some questions. Thanks 
to J. A. T. Curr, Senior Research Engineer at 
Davy-Loewy Ltd. in Bedford, England, for 
his suggestion and inquiries. 



Howard Sanders, Technical Support 
Specialist at Tektronix responds. 

How do you retrieve a program accidentally 
saved in "1,1,1" tape format? I can only 
retrieve the first 10 or so lines which then 
appear to repeat. 

To retrieve a program SAVED in 128 byte 
physical record, no checksum, non-header 
format, the file in which it's saved must be 
MARKed in the same format. To retrieve the 
file, make sure your 4050 System's tape unit 
status byte is in this format (PRI @33,0: 
1,1,1) and OLD in your program. However, 
if the file in which your "1,1,1" formatted 
program is stored is of 256 byte physical 
record, checksum, header format (the 
default tape unit status on the 4050 System), 
you can't recover the entire program— just 
the first few lines as Mr. Curr stated. 



How do you "TLI @1:" where 1 is the 4662 
Plotter? 

You cannot do a direct TLI to the Plotter. 
However, the following routine will do a 
listing to the Plotter. 



led 


REH TLI ST TO A PLOTTER AT ADDRESS 1 


lie 


H«l 




120 


FIND 8 




i3e 


PRINT #33 


8:8,8,1 


i4e 


FIND N 




ise 


INPUT 833 


A^ 


168 


B$-SEG<A« 


35,4) 


178 


B«MAL<B$> 




188 


B»256»B 




198 


A$«SEG(A« 


1,34) 


288 


PRINT fl:A«)B 


218 


PRINT 81 :T 


228 


N-H+1 




238 


L«>8EG<Af 


9il) 


248 


IF L*--L- 


THEN 268 


2S8 


GO TO 148 




268 


FIND 8 




278 


PRINT §33 


8:8,8,8 


288 


END 





How do you create "DATA" statements 
from either an existing array or a tape data 
file, e.g., from digitizing using the 4662 
Plotter or 4952 Joystick? 

The following routine will accomplish this 
task. M^ 



****SETUP*»** 
'ENTER NUMBER OF DATA PAIRS "; 



188 REN »»«««CREATE DATA STATEMENTS FROM X,V DATAt»»»l: 

lie REM «»«»*«a«-«a.,».««s.»«»e:.-««.««««»»««a«««»«««««« 

120 REM 

139 REM DATA PAIRS ARE STORED ON TAPE t< DATA STATEMENTS ARE WRITTEN- 

148 REM BACK TO A TAPE TO THE SPECIFIED FILE NUMBER 

159 INIT 

168 PAGE 

178 REM 

188 REM 

198 PRINT 

288 INPUT 

218 REH I$«l DATA STATEMENT; B«X,Y DATA PAIRS 

228 REM 

238 DIM If<118),B<:U,2> 

248 PRINT "ENTER DATA FILE OF DATA PAIRS "; 

259 INPUT F 

268 FIND F 

279 INPUT 633:8 

288 PRINT "ENTER DATA FILE TO RECIEUE DATA STATEMENT 

299 INPUT F 

388 FIND F 

- (9) THEN 669 



**CONUERT X,Y DATA TO DATA STATEMENTS** 



318 ON EOF 

329 N«l 

339 REM 

348 REM 

358 REH START LINE NUMBER AT 188 AND INCREMENT BY 18 

368 FOR 1*188 TO 58989 STEP 19 

378 If«STR<I) 

388 I»>'SEG<I«,2,LENaf>-l) 

398 REM PLACE THE WORD "DATA- IN 1$ 

488 If-REPC DATA",LEN<I*)+1,8) 

418 REM MAKE THE X,Y DATA PAIRS STRINGS t REMOUE EXTRA SPACE 

428 Af«STR<B<N,l)) 

438 A«*SEG<A«,2,LEN<A$)-1) 

448 6>«STRCB<N,2)) 

458 B*«SEG<B$,2,LEN(B$)-1> 

468 REM PLACE A COMMA BETWEEN NUMBERS 

479 A««A*fc%" 

489 Bt=B$t,%" 

499 REM INSERT THE STRINGED DATA PAIRS INTO 1$ 

599 I$<«Ift<At 

519 I*«I$iB$ 

529 REM IF THE STRING I* IS LONGER THAN 72 CHARACTER, THEN CUT THE- 

538 REM LAST X,Y PAIR OFF i, PRINT THE DATA STATEMENT TO TAPE 

549 IF LEN<:i$)>72 THEN 598 

559 REM INCREMENT X,Y DATA PAIRS COUNTER 

569 N=N4-1 

579 IF N«U THEN 648 

589 GO TO 429 

599 I$*SEG(I*,l,LEN(I$)-<LEN<A$>-«-LEN<B$) + l>> 

688 PRINT 633: I* 

618 NEXT I 

628 REM **PREPARE TO PRINT LAST DATA STATEMENT TO TAPE** 

638 REM 

649 If=SEG<I*,l,LEN<If>-l> 

659 PRINT 633:11 

669 CLOSE 

679 END 
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PROGRAMMING 
TIPS 



Rewrite Does Customer Injustice 



by Patricia Kelley 
TEKniques Staff 

When something goes wrong, it seems to 
multiply and that's what happened to Wayne 
Miller's programming tip in TEKniques Vol. 
3 No. 5: ''Listing a Program Over the RS- 

232-C'. 



Mr. Miller sent in a programming tip on a 
method to check for control characters. It 
was in response to the same subject covered 
in TEKniques Vol. 2 No. 5: "Flowchart 
Program 51/00-8005/1 Updated". 



wrong assumption and ended up referencing 
some wrong line numbers. Our errors were 
pointed out by Martin Guiver of the 
Tektronix European Marketing Centre in 
Amstelveen, The Netherlands. 



Mr. Guiver remarks: 'The statement made in 
the second paragraph of this article is not 
true; a LIST statement always converts 
control characters to an alpha/ 
backspace/ underUne sequence. Control 
characters transmitted by a PRINT state- 
ment, however, are executed."* 



Mr. Guiver is absolutely correct. Mr. Miller 
was also correct, for he was searching for 
control characters wh^n printing a program. 
Unfortunately, in the write-up we used the 
term "Usting" and also made a wrong 
assumption that the type of interface made a 
difference. So let's have another go at the 
programming tip: see "Intercepting Control 
Characters". 



Note: Although we reserve the right to insert 
corrected or optimized code, we don't usually 
rewrite programming tips; we simple edit them for 
organization and space. This one somehow got 
away from us. Our apologies to Mr. Miller. 



Well, we wanted to give some background on 
why one would look for control characters. 
In so doing we used a wrong term, made a 



*Mr. Guiver also provided more information on 
listing programs over the Option 1 RS-232-C, 
which you'll find in a separate programming tip. 



Intercepting Control Characters 



by Wayne Miller 

Missouri Center for Health Statistics 
Jefferson City, MO 



4008 PRINT "Enter the File Nanc to be Printed" 

4810 INPUT F« 

4828 PRINT "Enter the device: 48-PRINTER, 32-CRT 

4838 INPUT D 

4848 CLOSE 

4858 CALL "N0UNT",8|A« 

4868 UNIT 8 

4878 X-8 

4888 OPEN F«|1,"R",M« 

4898 ON EOF (1) THEN 4270 

4100 U«>CHR<31> 

4110 INPUT ttl:X$ 

4120 X-P0S<X»,"""",6) 

4130 IF X>0 THEN 4160 

4140 X«P0S<X»,"REH",3) 

4150 IF X-0 THEN 4220 

4160 X1«LEN<X«> 

4170 FOR I-X TO XI 

4180 A«-SEG(X$,M) 

4190 IF A$->U« THEN 4210 

4200 X»-REP<"t",I,l> 

4210 NEXT I 

4220 PRINT 0D:X* 

4230 FOR I«l TO LEN<X»)«0.7 

4240 NEXT I 

4250 GO TO 4110 

4260 CLOSE 

4270 END 



The following is a fast and easy way to check 
for control characters in a BASIC program. 
The program first checks for a quote mark in 
statement 4120 or REM statement in state- 
ment 4140. If neither is found, then no 
control characters are in that statement. So 
it's printed, and the next statement is 
brought in. Since all control characters are 
31 or less in decimal value, only one test is 
required on each character. If the segment is 
a control character (ASCII value 31 or less), 
statement 4200 converts it to an "up arrow''. 
If not, it passes to the next character. 



Editor's Note: 

To print control characters as their alpha 
equivalents, replace statements 4160 through 
4210 with the following: 



4160 


FOR I-LEN<X»> TO 1 


STEP -I 


4170 


A$«SEG<:Xt, 


[•1> 




4180 


IF A»«>" " 


THEN 4210 1 


4190 


Af=CHR<ASC<A*>+64) 




4200 


A$=A$«,"U_" 






4205 


X*=REP<A», 


[>1> 




4210 


NEXT I 







If you PRINT a string to a printer using 
either the Option 10 or Option 1 interface, 
the printer executes any control character in 
the string. Also, the RS-232-C Interface is 
unaware of when the printer buffer is filled 
and may overwrite it. Mr. Miller compen- 
sates for the latter in statements 4230-4240. 
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Solid Colors on the 4662 Plotter 



by Herman D'Hondt 

Tektronix Australia Pty. Ltd. 
Sydney, Australia 




This is a drawing sliaded on tlie 4bt>z noiier to 
give tlie effect of soiid colored areas. 

Have there been times when you wanted 
more than an outHne drawing for an 
overhead slide presentation? Using the 
following routine, you can have the 4662 
Plotter fill in solid colored areas of a 
drawing. The soUd colors are actually closely 
spaced horizontal lines which give the effect 
illustrated in the AustraHan flag plot. (The 
lines above were set for different spacings so 
the two colors could be recognized in black 
and white, i.e., closely spaced Hnes are blue, 
widely spaced are red.) 

How To Do It 

The first step is to digitize all line segments 
(vectors) within your drawing or picture. If 
one vector has different colors to its right, 
you'll have to separate it into multiple 
vectors (see Figure 1). Horizontal vectors 
need not be digitized, although it won't cause 
any problem if you do. Two vectors must be 
digitized to deUneate the side borders. 




Fig. 1. Tiie right edge of the sail is one long 
vector, but must be split into two to define the two 
different colored areas to its right. 

Lay your drawing on the Plotter and RUN 
the routine. Enter the number of colors. 
When you're counting colors, don't include 
white (blank) space as a color. 



100 


REM 


SHADING ROUTINE FOR 4662 PLOTTER 




































140 


PR I 


T -The FIRST VECTOR must he a line al 




.EFTHAND BORDER 


150 


PR I 




VECTOR 






PRINT -slons the RIGHTHAND BORDER, aSain 










T -Use Plotter Coordinates (0,150,0,1 


















PR I 


T ■■ -minus- ■ color,- e.a., -1 






200 


Nl = 


NT<(MEMORY-1000)/(8*5)) 






1310 


PR I 


















240 


INPUT cf'^" "'"'"'"" °^ "l"^^^'^ ■' 






2S0 


REM 


***** DIGITIZE FROM THE PLOTTER ***** 






270 


^?,< 


)=0 






200 


N=0 


T -BGJEnter Points! - 






rsoo 


FOR 












R 1=1 TO Nl 
PRINT USING '320! I 


























;j70 




IMAGE 2A,2(4D.2D),S 






;mo 




PRINT USING 370!-G.G-,yi(I),y2(I) 






390 
400 




INPUT SD,27ly3n),y4<I) 






420 




y3(i>=y3<i> 


























460 




INPUT V5(I) 






470 




IF'ySdXO THEN 500 






480 










490 


NEXT I 
























AOO 


REM 


















620 


FOR 


1=1 TO N-1 







740 V3(Ifl 



910 FOR C= 



960 REM * 



K RUN THIS LOOP ONCE FOR EACH COLOR ***** 
TO CO 
-INSTALL PEN WITH COLOR -fCi- AND PRESS <C 



FOR 1=1 TO ^ 



r-VALUES FOR COLOR *C * 



REM ***** DRAW RASTERLINES BETWEEN Y 
FOR Y=Y1 TO Y2 STEP 0.3 
PRINT 0D,21!O,Y 



FOR 1=1 TO N 

REM *** DISCARD VECTORS THC 
IF Y<V2(I) MIN V4(I) OR Y>1, 
REM *** COMPUTE INTERSECTIC 



DON'T CROSS RASTER L 
(I) MAX V2<I) THEN 12 
COORDINATES **** 



X=A*V1(I)+(1-A)*V3(I) 

P=21-(C=V5(R)) 

REM *** MOVE OR DRAW AS REQUIRED « 



Use the digitizing sight accessory for greater 
accuracy on your vector coordinates. As the 
4050 System prompts you for coordinates, 
use the Plotter joystick to move the Plotter 
pen or sight to a vector end point, then 
briefly press the CALL button on the 
Plotter. When the 4050 beeps, move the pen 
to the other end of the vector and push the 
CALL button again. Then enter the color 
number from the 4050 keyboard and press 
RETURN. Be sure to enter a color number, 
and don't press the CALL button at this 
point. Continue this procedure until all 
vectors are digitized. 



Begin by defining the left-hand border vector 
of the drawing by digitizing the lower and 
upper left corners and key in for the color. 



This ensures that blank areas on the left will 
stay blank. Next digitize the end points of 
each vector (in any order) and enter the 
number of the color to the right of that 
vector. The color number is arbitrary — just 
be sure vectors to the left of the same color all 
have the same color number. Finally, digitize 
the lower and upper right corners of the 
drawing and enter for the color. This 
ensures that your shading will not exceed the 
right-hand border. When your drawing is 
complete, including the last vector for the 
right-hand border, digitize two more points 
(anywhere) and enter a minus color number, 
e.g., -1, to signify you're through. Figure 2 
illustrates the vectors digitized for the 
Austrahan flag above. 



- 


• 



Fig. 2. 112 vectors define the colored areas of the 
Australian flag. Note the one long vector digitized 
for the left-hand border and the three subsequent 
vectors on this border which identify the three blue 
areas to their right. The fifth vector has a red area 
to its right, and so on. A horizontal line on one of 
the stars wasn't digitized since it wasn't necessary. 

Place a sheet of transparency or paper on the 
Plotter and insert the pen with the first color. 
The Plotter will shade all areas for one color 
before proceeding to the next. Between 
colors the 4050 System will prompt you for 
pen changes. 



That's all there is to it. 



How It Works 

Once the drawing has been digitized, the 
vectors are sorted according to minimum X. 
If two vectors have the same minimum X, 
they are sorted again with respect to max- 
imum X (statements 600 — 850). 

The Plotter draws the shading lines for one 
color, from bottom to top. As each color 
loop begins, statements 970 to 1010 inspect 
all vectors which have the current color to 
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their right and locate the minimum and 
maximum Y coordinate values. These values 
define the lower and upper points for the 
shading (Yl and Y2 in statement 1110). 

The Plotter moves the pen to the left-hand 
border and down to the first shading line (the 
lowest point in the drawing for that color). 
As the Plotter draws each shading Hne, the 
4050 System checks the vectors, left to right, 
to determine if any intersect the shading line 
(statement 1160). If a vector intersects a 
shading Hne, the intersection is computed 
using the parametric equations for a hne 
segment: 

X = AXi + (1-A) X2 
Y = AYi + (l-A) Y2 

(where A is in the range to 1). The color to 
the right of this intersecting vector is com- 
pared to that of the last intersecting vector 
which determines a move or draw (statement 
1220) to the intersection. 

The number of vectors determines the draw- 
ing time for each shading line. As the vectors 
increase, the time increases. The 112 vectors 
in the AustraHan flag resulted in five seconds 
per shading hne on the 4051. The 4051 will 
usually keep sHghtly ahead of the Plotter. 



Look at the flag in Figure 3 and compare the 
vectors digitized and the color to their right 
against the array in Figure 4. 




■T~~ ^^ ^ 



_-_ ^_ 



Fig. 3. Twenty vectors on the flag have been 
identified according to their sorted position in the 
array. They were not necessarily digitized in this 
order. 



XI 


X2 


VI 


V2 


COLOR 


0. 00 


0. 00 


0. 00 


100. 00 





0. 00 


0. 00 


0. 00 


50. 94 


1 


0. 00 


0. 00 


53. 24 


67. 92 


1 


0. 00 


22. 50 


53. 41 


69. 11 





0. 00 


23. 50 


99. 32 


81. 66 





0. 08 


0.08 


81. 66 


99. 40 


1 


1. 59 


25. 18 


99. 32 


82. 34 


2 


1. 68 


1. 68 


70. 31 


80. 03 


2 


1. 68' 


25. 52 


52. 56 


68.52 


2 


4. 95 


29. 55 


99. 32 


82. 17 





6. 55 


30. 12 


50.94 


67. 15 


1 


6. 72 


20. 22 


52. 56 


68. 60 





7. 39 


20. 22 


99. 74 


83. 79 


1 


23. 50 


27. 78 


28. 58 


24. 06 





23. 67 


29. 04 


28. 75 


22. 17 





27. 11 


27. 62 


18. 09 


24. 06 





27. 11 


22. 74 


18. 26 


18. 94 





29. 21 


29. 63 


32. 17 


28. 05 





29. 62 


35. 25 


38. 05 


35.84 




20. 13 


30. 22 


50. 94 


67. 06 





30. 22 


30. 22 


83. 96 


100. 00 





31. 90 


31. 90 


52, 65 


70. 29 


2 


31. 90 

1 


21. 90 


79. 00 


99. 57 


2 


1 

126. 63 


129. 46 


70. 37 


72. 18 


e 


127. 21 


129. 23 


57. 80 


60. 90 




129. 32 


132. 34 


60. 90 


61.07 




129. 48 


120. 66 


72. 18 


68.56 




130. 41 


133. 52 


68.56 


67. 18 




131. 50 


132. 26 


64.ee 


61. 07 




131. 50 


133. 35 


62.82 


67. 36 




150. 00 


150. 00 


e. ee 


iee.ee 





Fig. 4. A partial listing of arrays which conatin the 
coordinates and color coding of 112 vectors to 
produce the Australian flag. 

Color legend: = white or blani< 

1 = blue 

2 = red 



Editor's Note: 

Mr. D'Hondt used the Editor ROM to sort the 
vectors into minimum and maximum X- 
coordinates. Since not all readers have the ROM, 
we included a short sorting program for this task. 
Also, Mr. D'Hondt used a matrix to store the 
vector coordinates and color number. We con- 
verted this to one dimensional arrays to achieve 
faster scanning tirnes. 



LISTing Program or Data Over the Option 1 



by Martin Guiver 

European Marketing Centre 
Amstelveen, The Netherlands 

There are several ways to list program or 
data to a printer over the Option 1 Interface: 

1. Using the 4050 A08 Utilities /list'' 
program is probably the best for 
Hsting BASIC programs. It has ex- 
tended formatting capabilities, over- 
comes the printer buffer and control 
character problems and is easily 
adapted for use with the 4907. Sim- 
ply plug your printer cable into the 
Option 1 Interface. 

2. A very simple way to list tape data 
and programs not containing control 
characters'^ is found in using the tape 
communication facilities of the Op- 
tion 1; a sample program is given in 
Figure 1. 

Since this program uses half duplex 
mode, the "buffer not full" line of the 
printer (DTR) can be used to drive 
RTS/CTS. The hardware modifica- 



tion necessary to your printer plus is 
diagrammed in Figure 2. This 
program runs on our 4050/4641-1. 



199 


INIT 






119 


CALL 


■*RATE%2499i9>2 1 


129 


CALL 


-MARGIN*' 


p9i2,l 


139 


PRINT 


"FILE 


"1 


149 


INPUT 


F 




159 


FIND 


" 




169 


CALL 


•DTSEND- 




179 


GO TO 


139 





— 1 


1 


GND 




2 


JD 




3 


un 




4 


RTS 






5 


CTS 




«» A 


20 


DTR 


DI 


= IN914 or equivalent 


' 



Editor's Note: 

The buffer won't be overrun but control character:^ 
will be executed. To overcome this constraint, 
perform these additional steps: 



1. OLD the program you wish to list 

2. FIND an empty file large enough for your 
program 

3. Type LIST @33, 12: 

4. When tape movement stops, type CLOSE 

5. Now, run the listing program on this file 

This formats the program on the tape so control 
characters will appear in the listings and won't be 
executed. Do not use this new file as your original 
program; control characters will not execute. 

Another 4050 Series Interface, the Option 10 
RS'232-C Printer Interface, housed in a 
ROM pack, allows you to output data from 
your 4050 System to an RS'232-C compati- 
ble printing device with one statement: 

LIS @4I: (or LIS @51:) 

It handles the printer buffer timing, 
handshaking and control characters. You 
don't need an Option 1, although it may be 
plugged into an Option 1 backpack. Other 
commands and environmental control 
statements may also be used with the Option 
10. M^ 
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Displaying Quotation 
Marks 

by Bill Markwart 

Tektronix, Inc. 
Wilsonville, OR 

If you want your 4050 System to display 
quotation marks with a PRINT command, 
keep in mind you'll need two quote marks for 
each one you want displayed, plus the 
normal first and last quotes to delimit the 
character string. For example: 



lee PRINT -THE -"CRA2Y-- COW JUMPED" 



and 



lie PRINT ""-CRAZY"" COWS JUMP" 



Although covered in the 4050 Series Graphic 
System Reference Manual and the PLOT 50 
Introduction to Programming in BASIC 
ManuaP, a new programmer may overlook 
the requirements to PRINT question marks. 



RUNning these statements produces the 
following displays: 



1 Language Elements— String Constants. 

2 Essentials of BASIC— Outputting String 
Constants. 



THE "CRAZY- COW JUMPED 
-CRAZY- COWS JUMP 



Programming Tip 
Exchange 

Send in your programming tip. Any one of 
the following 4050 Series Applications 
Library programs* will he yours when it's 
published. Simply jot down a brief descrip- 
tion of the function, the code, and your 
choice of program. Mail it to the 4050 Series 
Applications Library serving you; Library 
addresses are listed at the back of each 
TEKniques issue. 



51/00-0501/0 
51/00-0901/0 
51/00-1403/0 
51/00-1603/0 
51/00-4002/0 
51/00-5204/0 



51/00-6002/0 
51/00-8004/0 
51/00-8017/0 
51/00-8022/0 
51/00-9507/0 
51/00-9533/0 



'^'Documentation and listing only. JSP 
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4050 Series Applications Library Program Abstracts 



Order 

Documentation and program listings of each program are 
available for a nominal charge. Programs will be put on tape or 
disc for a small recording fee per program plus the charge for the 
tape cartridge or flexible disc. One tape /disc will hold several 
programs. Programs will be recorded on like media only, i.e., 
programs on tape cannot be sent on disc and vice versa unless os 
noted in the abstract. 

(The program material contained herein is supplied without 
warranty or representation of any kind. Tektronix, Inc. assumes 
no responsibility and shall have no liability, consequential or 
otherwise, of any kind arising from the use of this program 
material or any part thereof.) 

Domestic U.S. Prices- 



Documentation and listings 
Recording Fee 
Tape Cartridge 
Flexible Disc 



$20 per program 
5 per program 
30 per tape 
15 per disc 



Contribute 

Contribute one program to the Library and receive three in 
exchange. Send in the membership card from your 4050 Series 
Graphic System Reference Manual to get the details. Or call us 
(503) 682-3411, ext. 3618. 

Forms 

Please use the Applications Library Order Form. Order forms 
are included in the Membership Packet and are available from 
your local Tektronix Sales Engineer. 

Outside U.S. 

Program contributions or orders outside the U.S. must be 
processed through the local Tektronix sales office or sent to one 
of the Libraries serving your area. See Library Addresses section. 



ABSTRACT # 51/07-0906/1 

Title: TIMESERIES II 

Author: Mallory M. Green 

U.S. Dept. of H.U.D. 

Washington, D.C. 

Memory Requirement: 32K 

Peripherals: 4952 Joystick or 

4662 Plotter 

Optional — 4907 File Manager 

4051R05 
Statements: 1199 

Files: 3 ASCII Program 

Requires data files for storage 



This is a revised version of 5 1 / 00-0906/ 0; the 
purpose of the revision was to make a large 
number of small improvements in the opera- 
tion of the program. 

The program has the following features: 

1. An easy to use prompted chart 
definition mode. 



2. The following output methods: 

a. Tabular display on screen 

b. Drawn on screen 

c. Plotted on plotter in one color 

d. Plotted on plotter in multiple 
colors 

3. Compatibility in approach and data 
format with BARGRAPH II. 

4. Storage of chart definitions on either 
tape or disc. 

5. Easy modification of charts via User 
Definable Key routines. 

6. Three program overlay modes: 

a. ASCII tape overlaying 

b. Binary tape overlaying 

c. Binary disc overlaying 

7. A maximum of up to 6 data lines of 
up to 35 time periods each. 




NATIONAL DEFENSE 



72 73 



75 76 



56 




NEW Y 


ORK STOCK EXCHANGE PF 
Source: Washington F 


ICE INDEX 


























I 


h 


NYSE P 


?ICE INDEX 


-v—^ 


.r 


^ 
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v^ 


/ 




V 
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ABSTRACT # 51/07/0907/1 

Title: BARGRAPH II 
Author: Mallory M. Green 

U.S. Dept. of H.U.D. 

Washington, D.C. 

Memory Requirement: 32K 

Peripherals: Optional — 4662 Plotter 

4907 File Manager 

4051R05 
Statements: 1524 

Files: 4 ASCII Program 

Requires data files for storage 

This is a revised version of 5 1 / 00-0907 / 0; the 
purpose of the revision was to make a large 
number of small improvements in the opera- 
tion of the program. 



The program has the following features: 

1. An easy to use prompted chart 
definition mode. 

2. The following output methods: 

a. Tabular display on screen 

b. Drawn on screen 

c. Plotted on plotter in one color 

d. Plotted on plotter in multiple 
colors 

Approach and data compatibility 
with TIMESERIES II. 



3. 

4. 
5. 



Chart storage on either tape or disc. 
Easy modification of charts via User 
Definable Key routines. 
Three program overlay modes: 



a. ASCII tape overlaying 

b. Binary tape overlaying 

c. Binary disc overlaying 

A maximum of 20 groups of up to 4 
bar types per group. 
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ABSTRACT # 51/00-1406/0 

Title: POWERFULBASS 

Authors: Ronald Glosemeyer 

David Lee 

Naval Ship R&D Center 

Bethesda, MD 
Memory Requirement: i6K 
Peripherals: Optional— 463 1 Hard Copy 
Unit 

4662 Plotter 
Statements: 437 
Files: 1 ASCII Program 

POWERFULBASS— P r o g r a m for 

Optimizing Woofer/ 
Enclosure Response 
at Frequencies 
UnderLying the Basic 
Audio Sound 
Spectrum 

By knowing three basic electromechanical 
properties of a woofer, this program allows 
the user to: 

1. Determine the optimum enclosure 
volume. 

2. Enter a desired volume (or bass 
cutoff frequency) and see the 
resulting cutoff frequency (or re- 
quired enclosure volume). 

3. See the required enclosure tuning 
frequency. 



4. See the resulting system efficiency. 

5. Obtain a plot of the theoretical 
frequency response at low frequen- 
cies. 



6. 



7. 



Determine 
dimensions 



the ''ideal" enclosure 



Set any two enclosure dimensions 
and see the third. 

"See" a scaled drawing of the com- 
pleted speaker enclosure. 
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ABSTRACT # 51/00-5406/0 

Title: Mass Properties 
Author: P.C. Holman 

University of Wisconsin 

Stevens Point, WI 
Memory Requirement: 16K 
Peripherals: None 
Statements: 451 
Files: 4 ASCII Program 

The program consists of four separate 
programs: 

1. Mass properties of a right circular 
cylinder. 

This program computes the follow- 
ing mass properties for a right cir- 
cular cyUnder: 

a. Volume in cubic inches 

b. Weight in pounds 

c. Z centroid in inches 

d. Ix, ly, Iz, Ixl, and lyl weight 
moments of inertia in pounds per 
square inch 

e. Px, Py and Pz radii of gyration in 
inches 



2. Mass properties of a cube 

This program computes the follow- 
ing mass properties for a cube: 

a. Volume in cubic inches 

b. Weight in pounds 

c. X, Y, and Z centroids in inches 

d. Ix,Iy,Iz, Ixl, lyl, and Izl weight 
moments of inertia in pounds per 
square inch 

e. Pzl and Pz2 radii of gyration in 
inches 

3. Mass properties of a hollow right 
cyHnder — weight known 

This program computes the follow- 
ing mass properties for a hollow 
right cyhnder where the weight is 
known: 

a. Ix, ly, and Iz weight moments of 
inertia in pounds per square inch 

b. Px, Py and Pz radii of gyration in 
inches 

4. Mass properties of a regular tri- 
angular prism 



This program computes the follow- 
ing mass properties for a regular 
triangular prism: 

a. Volume in cubic inches 

b. Weight in pounds 

c. X, Y, and Z centroids in inches 

d. Ix, ly, and Iz weight moments of 
inertia in pounds per square inch 

e. Px, Py, Pz radii of gyration in 
inches 



/-^ 



vy 



^2[ 



Right Circular Cylinder 




7 








Regular Triangular 
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ABSTRACT # 51/07-6114/0 

Title: Journal Entry, Edit, Review & Search 

Author: Peter R. Hulick, M.D. 

Lynchburg General Hospital 
Lynchburg, VA 
Memory Requirement: 16K 
Peripherals: 4631 Hard Copy Unit 

4907 File Manager 
Statements: 386 
Files: 2 ASCH Program 

Requires user created data files 

The first program is Journal Entry, Edit and 
Review. This program allows the user to 
enter onto disc storage the following: 

1. Title 

2. Principal author 

3. Year of publication 

4. Name of journal 

5. Up to eight retrieval categories 



Each article is stored in a 400 byte record on 
the disc, allowing the storage of 1500 records 
on one disc. The program allows retrieval of 
the data and updating or revision of articles 
previously entered. 



The second program is Journal Search. This 
program will search the articles stored on the 
disc using one of the following formats: 

1. Selected retrieval categories 

2. Listing in numerical order of 
retrieval categories 

3. Listing of all articles on the disc by 
record number 



Articles retrieved are displayed on the screen 
and automatically copied on the 4631 Hard 
Copy Unit when the screen is full or the 
search ends. 



SAMPLE TITLE 

HULICK f PR 

CAHCER 

1980 

ENTER ARTICLE NUHBER: 1 

ENTER HON HAHY TOPIC RETRIEVAL CATEGORIES TO 
BE USED (HAXIHUH OF 8 PERMITTED): S 

ENTER THESE RETRIEUAL CATEGORIES ONE AT A TIME, 
HIT THE RETURN KEY AFTER EACH ONE. 



43. 
33. 
6Z. 

3.- 
14- 



PROGRAH TO SEARCH THE LITERATURE DISK FOR JOURHAL 

ARTICLES BY RETRIEVAL CODE HUHBER 

CHOOSE OHE OF THE FOLLOUING SEARCH HETHODS: 

1 SEARCH BY SELECTED RETRIEVAL CATEGORIES 

2 ROUTIHE SEARCH OF ALL RETRIEUAL CATEGORIES 1 - 96 

3 LISTIHG OF ALL ARTICLES OH THIS DISK 

YOUR CHOICE? 1 

YOU MAY SELECT UP TO FIUE RETRIEVAL CATEGORIES TO BE SEARCHED 

INPUT HOH MANY CATEGORIES YOU HHICH TO SEARCH 3 

HHICH DISK IS BEING SEARCHED? fi_ 

YOU HAY RESTRICH YOUR SEARCH TO RETRIEVE AHY ARTICLE HHICH 
SATISFIES AHY ONE OF THESE CATEGORIES, OR ALL 3 OF 
THESE CATEGORIES. 

DO YOU HISH TO RETRIEVE ARTICLES SATISFYIHG 

1. ALL 3 OF THESE CATEGORIES 

2. ANY OF THE 3 CATEGORIES? 
SELECT 1 OR 2 AHD HIT RETURH KEY 1 

ENTER RETRIEVAL CATEGORY 1 TO BE SEARCHED: 1. 
ENTER RETRIEVAL CATEGORY 2 TO BE SEARCHED: fifi 
ENTER RETRIEVAL CATEGORY 3 TO BE SEARCHED: fiZ 



LISTING OF DISK 6 AS OF OS-FEB-SO 15:32:31 



l.e 17.8 67.8 



SEARCH COMPLETED 8S-FEB-88 13:32:36 



ABSTRACT #51/00-7003/0 

Title: FORTRAN to BASIC Converter 

Author: Mark R. Mehall 
Tektronix, Inc. 
Wilsonville, OR 
Memory Requirement: 32K 
Peripherals: 4924 Digital Tape Drive 

4050R06 EDITOR ROM Pack 
Statements: 979 
Files: 2 ASCII Program 

Requires 3 premarked ASCII data files 

This program is designed to convert FOR- 
TRAN to 4050 Series BASIC. The program 
is based on the USA Standard FORTRAN, 
X3.9-1966. The FORTRAN statement 
labels, variables and subroutine names are 
changed to their BASIC counterparts and 
remembered for references throughout the 
program. The majority of FORTRAN 
statements are changed into BASIC by this 
program. The statements that are not direct- 
ly compatible are made into REMARK'S 
and can be modified using the EDITOR 
ROM or the 4050 Series Line Editor. The 
FORTRAN statements: READ, WRITE, 
FORMAT, IF, GO TO, DO, DIMENSION, 
CALL, END, RETURN, STOP, 
SUBROUTINE, and CONTINUE are 
automatically changed to BASIC. The FOR- 
TRAN internal routines are also converted 
to the corresponding BASIC routines. 



The program also prints tables of correspon- 
ding FORTRAN statement numbers to 
BASIC Hne numbers, FORTRAN variable 
names to BASIC variables, and FORTRAN 
subroutine names to BASIC Hne numbers. 



S-3. 141593 
ROOT- 1.7 

R0OT-<ROOT*»2+S)/<2.e«R0OT) 
l-I + l 
.TEST«R00T««2-S 
IF (TEST) 8,5,9 
FORMATC PI*».5» ',F8.6/"e', 
HRITE<3,4) ROOT, I 
STOP 

TEST»-l.e*TEST 
IF (TEST-. 000905) 5,5,1 
END 



ITERATIONS') 



R0-(R0t2+8)/(2.0*R0) 

I»I + 1 

T0-R0t2-S 

GO TO SGN (Te)+2 OF 208,180,210 

IMAGE " PI««.5- ",1D.6D/"0»,4D," ITERATIONS" 

PRINT USING 170: R0,I 

STOP 

T0— 1.0*T0 

GO TO SGN (T0-.000005)+2 OF 180,180,130 

END 
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IbktfDnix 

COMMUTED TO EXCELLENCE 

TEKTRONIX, INC. 

Information Display Group 

Applications Library 

Group 451 

P.O. Box 500 

Beaver ton, Oregon 97005 



ADDRESS CORRECTION REQUESTED 



4050 Series Applications Libraries 



Africa, Europe, Middle East 

Contact local sales office 

Australia 

4050 Series Applications Library 

Tektronix Australia Pty. Limited 

Sydney 

80 Waterloo Road 

North Ryde, N.S.W. 2113 



Canada 

4050 Series Applications Library 
Tektronix Canada Ltd. 
P.O. Box 6500 
Barrie, Ontario 
Canada L4M 4V3 

Caribbean, Latin America 
and Far East (excl. Japan) 

IDD Group 
Export Marketing 
Tektronix, Inc. 
P.O. Box 500 
Beaverton, Oregon 97077 
U.S.A. 



Japan 

4050 Series Applications Library 
Sony/ Tektronix Corporation 
9-31 Kitashinagawa-5 
Tokyo 141 Japan 

United States 

4050 Series Applications Library 
Tektronix, Inc. 
Group 451 
P.O. Box 500 
Beaverton, Oregon 97077 



